home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Install_DOpusPLUS < prev    next >
Text File  |  1998-10-30  |  3KB  |  181 lines
  1. ; Script to install DOpus PLUS CD parts to DOpus5: directory
  2. ;
  3. ; DOpus PLUS Install Version $VER: DOpus_PLUS_Install 1.0  (20.10.98)
  4. ; COPYRIGHT ©1997 GP SOFTWARE, AUSTRALIA
  5. ; note uses Opus<Alt-Shift>5
  6.  
  7.  
  8. (complete 0)
  9.  
  10.  
  11. (set @default-dest "Dopus5:")
  12.  
  13. (set #CDSource "DOPLUS:")
  14. (set #DO_Dest "DOpus5:DOPLUS")
  15. (set #DO_Dir  "DOpus5:")
  16.  
  17. (set #Ibrowse "Ibrowse")
  18. (set #AWeb "AWeb-II")
  19. (set #Voyager "V")
  20.  
  21. (set #Ibrowse_path (tackon "Work:Ibrowse/" #Ibrowse))
  22. (set #AWeb_path  (tackon "Work:Aweb3/" #AWeb))
  23. (set #Voyager_path (tackon "Work:Voyager/" #Voyager))
  24.  
  25.  
  26. (set #Go "Proceed")
  27. (set #Skip "Skip this part")
  28.  
  29.     (set #Title_msg "DOpus PLUS Installation.\n\n")
  30.  
  31.     (message #Title_msg
  32.         "Install and Set up easy access to the DOplus CD\n\n"
  33.         "This script installs a few files in your DOpus5:"
  34.         " directory to give you easy access to the CD.\n\n"
  35.         "It also allows you to select your preferred HTML browser"
  36.         " with which to view the tutorials and other material."
  37.         )
  38.  
  39. ; a bit loopy really
  40.  
  41. (while     (
  42.     (set #Title_msg "DOpus PLUS Installation.\n\n")
  43.     (set #browser
  44.         (askchoice
  45.             (prompt #Title_msg
  46.                 "Which HTML browser do you use?")
  47.  
  48.             (help     "Select the HTML browser.")
  49.             (choices
  50.                 "IBrowse"    ; 0
  51.                 "AWeb"        ; 1 
  52.                 "Voyager"    ; 2
  53.                 
  54.                 "Other"        ; 3
  55.                 "None  - use the default on the CD") ;4
  56.             
  57.             (default 4)
  58.         )
  59.     )
  60.  
  61.     (if    (<> #browser 4)
  62.         (
  63.  
  64.             (if    (< #browser 3)
  65.                 (
  66.                 (set #browser_name (select #browser #Ibrowse #AWeb #Voyager))
  67.                 (set #browser_path   (select #browser #Ibrowse_path #AWeb_path #Voyager_path))
  68.                 )
  69.                 (
  70.                 (set #browser_name "Other Browser")
  71.                 (set #browser_path   "Work:")
  72.                 )
  73.             )
  74.         
  75.             (set #filepath
  76.                 (askfile
  77.                 (prompt "Please select the file path to your browser "#browser_name)
  78.                 (help @askfile-help)
  79.                 (default #browser_path  )
  80.                 )
  81.             )
  82.         
  83.             (if    (set #ok (askbool
  84.                 (prompt "For your preferred browser you have selected \n\n"
  85.                     #filepath   "\n\n"
  86.                     "Is this correct?"
  87.                 )
  88.                 (help @ask-bool)
  89.                 (default 1)
  90.                 )
  91.                 )
  92.             )
  93.         )
  94.         (set #ok 1)
  95.  
  96.     )
  97.     (<> #ok 1)
  98.     )
  99. )
  100.  
  101.  
  102. (makedir #DO_Dest (infos) (safe)) 
  103. (copyfiles
  104.     (source (tackon #CDSource "tutorial/HTML/franknord"))
  105.     (dest #DO_Dest)
  106.     (newname "DOpusPlus.html")
  107. )
  108.  
  109.  
  110. (copyfiles
  111.     (source (tackon #CDSource "DOpusPlus.html.info"))
  112.     (dest #DO_Dest)
  113. )
  114.  
  115. (copyfiles
  116.     (source (tackon #CDSource "tutorial/HTML/Scripts"))
  117.     (dest #DO_Dest)
  118.     (all)
  119.     (infos)
  120.  
  121. )
  122.  
  123. (copyfiles
  124.     (source (tackon #CDSource "tutorial/HTML/groups"))
  125.     (dest (tackon #DO_Dir "Groups"))
  126.     (all)
  127.     (infos)
  128.  
  129. )
  130.  
  131.  
  132. (tooltype
  133.     (dest (tackon #DO_Dest "DOpusPlus.html"))
  134.     (noposition)
  135. )
  136.  
  137. (tooltype
  138.     (dest (tackon #DO_Dest "Make_Assigns"))
  139.     (noposition)
  140. )
  141.  
  142. (tooltype
  143.     (dest (tackon #DO_Dest "Remove_Assigns"))
  144.     (noposition)
  145. )
  146.  
  147.  
  148. (if    (<> #browser 4)
  149.     (
  150.     (tooltype
  151.         (dest (tackon #DO_Dest "DOpusPlus.html"))
  152.         (setdefaulttool #filepath)
  153.         (prompt "Setting the default tool for the DOpusPLUS project"
  154.             " icon.\n\n"
  155.             "Preferred Browser - "#browser_name
  156.             "\nFile path - "#filepath)
  157.         (help "Sets the default tool!")
  158.         (confirm)
  159.     )
  160.     )
  161. )
  162.  
  163. (message #Title_msg
  164.     "The DOpus PLUS installation is complete.\n\n"
  165.     "This has installed a new Program Group to facilitate access to"
  166.     " the tutorial.\n\n"
  167.     "This will not be visible on your Desktop until you either"
  168.     " restart Opus or select Reset from the Icons Menu."
  169. )
  170.  
  171. (complete 100)
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.